Imports System.IO

Public Class CopyProgressEventArgs
    Inherits EventArgs

    Private _fileInfo As FileInfo
    Private _percent As Integer
    Friend Sub New(ByVal fileInfo As FileInfo, ByVal percent As Integer)
        Me._fileInfo = fileInfo
        Me._percent = percent
    End Sub

    Public ReadOnly Property FileInfo() As FileInfo
        Get
            Return Me._fileInfo
        End Get
    End Property

    Public ReadOnly Property Percent() As Integer
        Get
            Return Me._percent
        End Get
    End Property
End Class